let s:str=""
let s:mat_attr=""
let s:replace_attr=""
let s:case_s=[]

let s:case_1=['href="javascript:if(confirm(%27http:','href="/"']
let s:case_2=['a href=','a href="/"']
let s:case_3=["tppabs=",""]
let s:case_4=["title=",'title=""']

let s:case_5=['href=','href="/"']

call add(s:case_s,s:case_1)
call add(s:case_s,s:case_2)
call add(s:case_s,s:case_3)
""call add(s:case_s,s:case_4)
""call add(s:case_s,s:case_5)

function! s:html_clean()
	for case in s:case_s
		let s:mat_attr=case[0]
		let s:replace_attr=case[1]
		call s:do_case()
	endfor
	echo "done *^^*"
endfunction
function! s:do_case()
	let s:str=""
	let l:line_num=1
	while l:line_num < line('$')
		let s:str=getline(l:line_num)
		let l:col_num_A=match(s:str,s:mat_attr)
		let l:count=1
		if l:col_num_A > 0
			let s:str=s:my_substitute(l:col_num_A,s:str)
			call setline(l:line_num,s:str)
		endif
		let l:line_num=l:line_num + 1
		call cursor(l:line_num)
	endwhile
endfunction
function! s:my_substitute(col_num_A,str)
	let l:col_num_B=match(a:str,'"',a:col_num_A,2)
	let l:part_A=strpart(a:str,0,a:col_num_A)
	let l:part_B=strpart(a:str,l:col_num_B-a:col_num_A)
	let l:part_C=strpart(a:str,l:col_num_B+1)
	let l:re_str=s:replace_attr
	let s:str=l:part_A.l:re_str.l:part_C
	let l:col_num_A=match(s:str,s:mat_attr,l:col_num_B)
	if l:col_num_A > 0
		call s:my_substitute(l:col_num_A,s:str)
	endif
	return s:str
endfunction

nnoremap <silent> <leader>cl :call <SID>html_clean()<cr>
